home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / util / rexx / updatelibs.lha / UpdateLibs / UpdateLibsAminetCD.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2000-05-27  |  4.5 KB  |  65 lines
  1. ; Batch-Programm zum aktuallisieren von LIBS: von CD
  2. ; V1.0
  3.  
  4. run >NIL: Work:Anwender/arcHandler/ArcHandler
  5. echo "*E[31;40m" NOLINE
  6. RequestFile >ENV:Path DRAWERSONLY TITLE "ARC:Aminet xx/Aminet wählen:"
  7.  
  8. Echo "Ich lese nun das Directory "$Path" mit Unterverzeichnissen !!!"
  9. Resident >NIL: Work:CUser/LHA pure
  10. Resident >NIL: Work:CUser/DVC pure
  11. Failat 25
  12.  
  13. CD $Path
  14. Echo "Ich durchsuche das Verzeichnis 'biz'..."
  15.  C:LIST >T:biz  biz PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  16. Echo "Ich durchsuche das Verzeichnis 'comm'..."
  17.  C:LIST >T:comm comm PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  18. Echo "Ich durchsuche das Verzeichnis 'demo'..."
  19.  C:LIST >T:demo demo PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  20. Echo "Ich durchsuche das Verzeichnis 'dev'..."
  21.  C:LIST >T:dev  dev  PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  22. Echo "Ich durchsuche das Verzeichnis 'disk'..."
  23.  C:LIST >T:disk disk PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  24. Echo "Ich durchsuche das Verzeichnis 'docs'..."
  25.  C:LIST >T:docs docs PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  26. Echo "Ich durchsuche das Verzeichnis 'game'..."
  27.  C:LIST >T:game game PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  28. Echo "Ich durchsuche das Verzeichnis 'gfx'..."
  29.  C:LIST >T:gfx  gfx  PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  30. Echo "Ich durchsuche das Verzeichnis 'hard'..."
  31.  C:LIST >T:hard hard PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  32. Echo "Ich durchsuche das Verzeichnis 'misc'..."
  33.  C:LIST >T:misc misc PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  34. Echo "Ich durchsuche das Verzeichnis 'mods'..."
  35.  C:LIST >T:mods mods PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  36. Echo "Ich durchsuche das Verzeichnis 'mus'..."
  37.  C:LIST >T:mus  mus  PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  38. Echo "Ich durchsuche das Verzeichnis 'pix'..."
  39.  C:LIST >T:pix  pix  PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  40. Echo "Ich durchsuche das Verzeichnis 'text'..."
  41.  C:LIST >T:text text PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  42. Echo "Ich durchsuche das Verzeichnis 'util'..."
  43.  C:LIST >T:util util PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  44.  
  45. Execute T:biz
  46. Execute T:comm
  47. Execute T:demo
  48. Execute T:dev
  49. Execute T:disk
  50. Execute T:docs
  51. Execute T:game
  52. Execute T:gfx
  53. Execute T:hard
  54. Execute T:misc
  55. Execute T:mods
  56. Execute T:mus
  57. Execute T:pix
  58. Execute T:text
  59. Execute T:util
  60.  
  61. Delete ENV:Path
  62. Resident LHA remove
  63. Resident DVC remove
  64.  
  65.